﻿Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

<System.Web.Services.WebService(Namespace:="http://10.98.25.133:8088/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class InterfaceService
	Inherits System.Web.Services.WebService

	<WebMethod()> _
	Public Function Online_IVR_XML(ByVal P_TRAN_ID As String, ByVal P_MOBILE_NO As String,
  ByVal P_PP_CODE As String, ByVal P_TOPUP_VALUE As String,
  ByVal P_TOPUP_DATE As String, ByVal P_REF1_IVR As String, ByVal P_REQ_TRAN_ID As String) As Entity.Response

		System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-GB")
		System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-GB")

		Dim rslt As Entity.ResultProcedureItem
		rslt = BL.BackEnd.Online_IVR_XML(P_TRAN_ID, P_MOBILE_NO, P_PP_CODE, P_TOPUP_VALUE, P_TOPUP_DATE, P_REF1_IVR, P_REQ_TRAN_ID)

		Dim retResponse As New Entity.Response
		retResponse.TranId = P_TRAN_ID
		retResponse.ResultCode = rslt.ErrorCode
		retResponse.ResultDesc = rslt.ErrorMessage
		retResponse.RespDate = DateTime.Now.ToString("yyyyMMdd HH:mm:sss")

		Return retResponse
	End Function

End Class